inherited FRelatorioAnaliseDasVendas: TFRelatorioAnaliseDasVendas
  Left = 254
  Top = 179
  Width = 861
  Caption = 'COMPRAS / PEDIDO DE COMPRA / RELAT'#211'RIOS'
  OldCreateOrder = True
  PixelsPerInch = 96
  TextHeight = 16
  inherited Panel1: TPanel
    Width = 853
  end
  inherited Panel2: TPanel
    Width = 853
    Caption = 'AN'#193'LISE DE COMPRAS'
  end
  inherited GroupBox1: TGroupBox
    object Label3: TLabel
      Left = 16
      Top = 32
      Width = 63
      Height = 16
      Caption = 'Comprador'
    end
    object Label4: TLabel
      Left = 16
      Top = 80
      Width = 125
      Height = 16
      Caption = 'Grupo Class. Produto'
    end
    object Label66: TLabel
      Left = 15
      Top = 127
      Width = 67
      Height = 16
      Caption = 'C'#243'digo (F8)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 86
      Top = 127
      Width = 85
      Height = 16
      Caption = 'Descri'#231#227'o (F8)'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
    end
    object dblComprador: TDBLookupComboBox
      Left = 16
      Top = 51
      Width = 145
      Height = 22
      KeyField = 'PED_COMPRADOR'
      ListField = 'PED_COMPRADOR'
      ListSource = dsComprador
      TabOrder = 0
      OnKeyDown = dblCompradorKeyDown
    end
    object edGrupoClassFin: TEdit
      Left = 16
      Top = 98
      Width = 129
      Height = 22
      CharCase = ecUpperCase
      TabOrder = 1
    end
    object EdCodProdutoMercadoria: TEdit
      Left = 15
      Top = 145
      Width = 65
      Height = 22
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 2
      OnExit = EdCodProdutoMercadoriaExit
      OnKeyDown = EdCodProdutoMercadoriaKeyDown
    end
    object GroupBox3: TGroupBox
      Left = 15
      Top = 171
      Width = 276
      Height = 54
      Caption = '  Per'#237'odo  '
      Ctl3D = False
      ParentCtl3D = False
      TabOrder = 3
      object Label5: TLabel
        Left = 135
        Top = 17
        Width = 7
        Height = 16
        Caption = 'a'
      end
      object Label6: TLabel
        Left = 8
        Top = 17
        Width = 16
        Height = 16
        Caption = 'De'
      end
      object DTINI: TDateEdit
        Left = 29
        Top = 17
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 0
      end
      object DTFIM: TDateEdit
        Left = 152
        Top = 17
        Width = 100
        Height = 21
        Ctl3D = False
        NumGlyphs = 2
        ParentCtl3D = False
        TabOrder = 1
      end
    end
    object DBLCBProduto: TDBLookupComboBox
      Left = 86
      Top = 145
      Width = 342
      Height = 22
      Ctl3D = False
      KeyField = 'PROD_CODIGO'
      ListField = 'PROD_DESCRICAOENT'
      ListSource = dsProduto
      ParentCtl3D = False
      TabOrder = 4
      OnKeyDown = DBLCBProdutoKeyDown
    end
  end
  inherited GroupBox2: TGroupBox
    object rgTipo: TRadioGroup
      Left = 8
      Top = 56
      Width = 257
      Height = 57
      Caption = '  Tipo  '
      Columns = 2
      ItemIndex = 1
      Items.Strings = (
        'Detalhado'
        'Resumido')
      TabOrder = 5
      OnClick = rgTipoClick
    end
  end
  inherited RLReport: TRLReport
    Left = 48
    Top = 229
    DataSource = DSPesquisa
    ExpressionParser = RLExpressionParser1
    object RLBand2: TRLBand
      Left = 38
      Top = 120
      Width = 718
      Height = 19
      BandType = btColumnHeader
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = False
      Borders.DrawRight = False
      Borders.DrawBottom = True
      BeforePrint = RLBand2BeforePrint
      object RLLabel1: TRLLabel
        Left = 0
        Top = 1
        Width = 44
        Height = 16
        Alignment = taCenter
        AutoSize = False
        Caption = 'C'#243'digo'
      end
      object RLLabel2: TRLLabel
        Left = 48
        Top = 1
        Width = 62
        Height = 16
        Caption = 'Descri'#231#227'o'
      end
      object RLLabel3: TRLLabel
        Left = 264
        Top = 1
        Width = 67
        Height = 16
        Caption = 'Comprador'
      end
      object RLLabel4: TRLLabel
        Left = 344
        Top = 1
        Width = 44
        Height = 16
        Caption = 'Pedido'
      end
      object RLLabel5: TRLLabel
        Left = 414
        Top = 1
        Width = 31
        Height = 16
        Caption = 'Data'
      end
      object RLLabel6: TRLLabel
        Left = 476
        Top = 1
        Width = 55
        Height = 16
        Caption = 'Vr.Antes'
      end
      object RLLabel7: TRLLabel
        Left = 552
        Top = 1
        Width = 51
        Height = 16
        Caption = 'Vr.Atual'
      end
      object RLLabel8: TRLLabel
        Left = 606
        Top = 1
        Width = 58
        Height = 16
        Caption = 'Diferen'#231'a'
      end
      object RLLabel9: TRLLabel
        Left = 678
        Top = 1
        Width = 36
        Height = 16
        Caption = 'Var%'
      end
    end
    object RLBand3: TRLBand
      Left = 38
      Top = 167
      Width = 718
      Height = 17
      BeforePrint = RLBand3BeforePrint
      object RLDBText2: TRLDBText
        Left = 0
        Top = 0
        Width = 44
        Height = 16
        Alignment = taCenter
        AutoSize = False
        DataField = 'ITENS_PED_PRODUTO'
        DataSource = DSPesquisa
      end
      object RLDBText3: TRLDBText
        Left = 48
        Top = 0
        Width = 210
        Height = 16
        AutoSize = False
        DataField = 'ITENS_PED_PRODUTO_DESC'
        DataSource = DSPesquisa
      end
      object RLDBText4: TRLDBText
        Left = 264
        Top = 0
        Width = 78
        Height = 16
        Alignment = taCenter
        AutoSize = False
        DataField = 'PED_COMPRADOR'
        DataSource = DSPesquisa
      end
      object RLDBText5: TRLDBText
        Left = 344
        Top = 0
        Width = 44
        Height = 16
        Alignment = taCenter
        AutoSize = False
        DataField = 'PED_CODIGO'
        DataSource = DSPesquisa
      end
      object RLDBText6: TRLDBText
        Left = 391
        Top = 0
        Width = 78
        Height = 16
        Alignment = taCenter
        AutoSize = False
        DataField = 'PED_DATA'
        DataSource = DSPesquisa
      end
      object RLDBText7: TRLDBText
        Left = 472
        Top = 0
        Width = 60
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'VALOR_ANTES'
        DataSource = DSPesquisa
      end
      object RLDBText8: TRLDBText
        Left = 536
        Top = 0
        Width = 67
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'VALOR_ATUAL'
        DataSource = DSPesquisa
      end
      object RLDBText9: TRLDBText
        Left = 608
        Top = 0
        Width = 56
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'DIFERENCA'
        DataSource = DSPesquisa
      end
      object RLDBText10: TRLDBText
        Left = 669
        Top = 0
        Width = 44
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'VAR'
        DataSource = DSPesquisa
      end
    end
    object RLBand4: TRLBand
      Left = 38
      Top = 139
      Width = 718
      Height = 28
      BandType = btColumnHeader
      BeforePrint = RLBand4BeforePrint
      object RLLabel10: TRLLabel
        Left = 0
        Top = 0
        Width = 124
        Height = 16
        Alignment = taCenter
        Caption = 'Compras com Pre'#231'o'
      end
      object RLLabel11: TRLLabel
        Left = 160
        Top = 0
        Width = 70
        Height = 16
        Caption = 'Quantidade'
      end
      object RLLabel12: TRLLabel
        Left = 264
        Top = 0
        Width = 71
        Height = 16
        Caption = 'Varia'#231#227'o %'
      end
      object RLLabel13: TRLLabel
        Left = 408
        Top = 0
        Width = 66
        Height = 16
        Caption = 'Valor Total'
      end
      object RLLabel14: TRLLabel
        Left = 512
        Top = 0
        Width = 71
        Height = 16
        Caption = 'Varia'#231#227'o %'
      end
    end
    object RLBand5: TRLBand
      Left = 38
      Top = 184
      Width = 718
      Height = 30
      BeforePrint = RLBand5BeforePrint
      object RLDBText11: TRLDBText
        Left = 18
        Top = 0
        Width = 107
        Height = 16
        DataField = 'CLASSIFICACAO'
        DataSource = dsResumo
      end
      object RLDBText12: TRLDBText
        Left = 162
        Top = 0
        Width = 66
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'QUANTIDADE'
        DataSource = dsResumo
      end
      object RLDBText13: TRLDBText
        Left = 266
        Top = 0
        Width = 66
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'QUANT_VAR'
        DataSource = dsResumo
      end
      object RLDBText14: TRLDBText
        Left = 344
        Top = 0
        Width = 129
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'TOTAL'
        DataSource = dsResumo
      end
      object RLDBText15: TRLDBText
        Left = 504
        Top = 0
        Width = 79
        Height = 16
        Alignment = taRightJustify
        AutoSize = False
        DataField = 'TOTAL_VAR'
        DataSource = dsResumo
      end
    end
    object RLBand6: TRLBand
      Left = 38
      Top = 214
      Width = 718
      Height = 21
      BandType = btSummary
      Borders.Sides = sdCustom
      Borders.DrawLeft = False
      Borders.DrawTop = True
      Borders.DrawRight = False
      Borders.DrawBottom = False
      Borders.FixedTop = True
      BeforePrint = RLBand6BeforePrint
      object RLDBResult1: TRLDBResult
        Left = 103
        Top = 3
        Width = 126
        Height = 16
        Alignment = taRightJustify
        DataField = 'QUANTIDADE'
        DataSource = dsResumo
        Info = riSum
        BeforePrint = RLDBResult1BeforePrint
      end
      object RLDBResult2: TRLDBResult
        Left = 247
        Top = 4
        Width = 226
        Height = 16
        Alignment = taRightJustify
        DataField = 'VALOR_TOTAL'
        DataSource = dsResumo
        Info = riSum
        Text = 'Total Compras: '
      end
    end
  end
  inherited QPesquisa: TQuery
    SQL.Strings = (
      'SELECT'
      '  ITENSPEDIDO.ITENS_PED_PRODUTO,'
      '  ITENSPEDIDO.ITENS_PED_PRODUTO_DESC,'
      '  PEDIDO.PED_COMPRADOR,'
      '  PEDIDO.PED_CODIGO,'
      '  PEDIDO.PED_DATA,'
      '  ITENSPEDIDO.ITENS_PED_QUANTIDADE'
      'FROM'
      '  ITENSPEDIDO'
      
        '  INNER JOIN PEDIDO ON (ITENSPEDIDO.ITENS_PED_CODIGO = PEDIDO.PE' +
        'D_CODIGO)')
    Left = 384
  end
  inherited DSPesquisa: TDataSource
    Left = 352
    Top = 254
  end
  object QComprador: TQuery
    Active = True
    DatabaseName = 'base'
    SQL.Strings = (
      'SELECT DISTINCT '
      '  PEDIDO.PED_COMPRADOR'
      'FROM'
      '  PEDIDO'
      'ORDER BY'
      '  1')
    Left = 384
    Top = 144
  end
  object dsComprador: TDataSource
    DataSet = QComprador
    Left = 352
    Top = 144
  end
  object ClientDataSet1: TClientDataSet
    Aggregates = <>
    Params = <>
    Left = 240
    Top = 104
  end
  object dsResumo: TDataSource
    Left = 312
    Top = 280
  end
  object RLExpressionParser1: TRLExpressionParser
    Left = 336
    Top = 56
  end
  object dsProduto: TDataSource
    DataSet = DMGestao.QProdutoEnt
    Left = 496
    Top = 192
  end
end
